home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Forever 4
/
Atari Forever 4.zip
/
Atari Forever 4.iso
/
SERIE_AI
/
AI_076
/
STARF15S.LZH
/
STARFAX
/
FDDKIT.FTQ
/
FDDKIT.LST
next >
Wrap
File List
|
1993-12-07
|
957b
|
37 lines
> PROCEDURE maus_form(y&)
' etwas Mausspielrerei, kann auch weggelassen werden
' in die INLINES MAUS1.INL ... MAUS4.INL einbinden.
LOCAL maus%
SELECT y&
CASE 0
INLINE maus%,74
CASE 1
INLINE maus%,74
CASE 2
INLINE maus%,74
DEFAULT
INLINE maus%,74
ENDSELECT
~GRAF_MOUSE(255,maus%)
RETURN
> PROCEDURE sicher_seite(faxpage%,lines&)
LOCAL y&
'
' hier SAVEPAGE.INL (mit HELP-Taste) einbinden
INLINE faxdrive%,2150
'
' Rastergrafik aus Adresse faxpage% mit lines& Zeilen und
' 256 Bytes/Zeile wird in 64 Zeilen große Stücke zerlegt und gesichert.
'
a$="BILD_"
~C:faxdrive%(1,L:V:a$) !FAX-Seite erstellen
~C:faxdrive%(3) !Titel einfügen
'
FOR y&=0 TO lines&-1 STEP 64
maus&=(maus&+1) AND 3
maus_form(maus&)
~C:faxdrive%(2,L:faxbild%+y&*256,256,MIN(lines&-y&,64)) !Teil sichern
NEXT y&
~C:faxdrive%(4) !FAX-Seite abschließen.
RETURN